Komputer for Alle 2001 #8/CD 8 (Black) - 2001.iso/K-CS.dcr/00253.ls

Text File | 2001-02-20 | 380 b | 17 lines

property OldSprite

on new me
  set property to -1
end

on mouseDown me
  set newSprite to ((the mouseV - 213) / 13 * 2) + 62
  if OldSprite > 0 then
    set the visible of sprite OldSprite to 0
    set the visible of sprite (OldSprite + 1) to 0
  end if
  set the visible of sprite newSprite to 1
  set the visible of sprite (newSprite + 1) to 1
  set OldSprite to newSprite
end